home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00026_Texto Inteligente.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  2.0 KB  |  77 lines
  1. property spr 
  2. property midia, subtit -- parametros setados por outro procedimento
  3. property primPal, spriteClick
  4.  
  5. on getBehaviorDescription
  6.   return "Faz busca automatica de palavra clicada"
  7. end
  8.  
  9. on getPropertyDescriptionList
  10.   set p_list = [ ┬¼
  11.     #midia: [ #comment:   "Midia do texto",┬¼
  12.                  #format:   #integer, ┬¼
  13.                  #default:    1 ],┬¼
  14.     #subtit: [ #comment:   "Subtitulo do texto", ┬¼
  15.                  #format:   #integer, ┬¼
  16.                  #default:    0 ],┬¼
  17.     #primPal: [ #comment:   "Numero da primeira palavra do texto", ┬¼
  18.                  #format:   #integer, ┬¼
  19.                  #default:    0 ],┬¼
  20.     #spriteClick: [ #comment:   "Sprite abaixo interessado em clicks inuteis", ┬¼
  21.                  #format:   #integer, ┬¼
  22.                  #default:    0 ]┬¼
  23.   ]
  24.   return p_list
  25. end
  26.  
  27. on beginSprite me
  28.   set spr = the spriteNum of me
  29. end
  30.  
  31. on cleanSprite me
  32.   set the visibility of sprite (the spriteNum of me) to true
  33. end 
  34.  
  35. on setMidia me, m, s
  36.   set midia = m
  37.   set subtit = s
  38. end
  39.  
  40. on mouseUp me
  41.   set mem = the member of sprite spr
  42.   set pal = the mouseWord
  43.   if the doubleClick then
  44.     cursor 4
  45.     puppetSound 2,"CliqueProcura"
  46.     sendSprite(97,#chaveVisibilidade,true)
  47.     set tmp = word pal of (the text of mem)
  48.     set pal = ""
  49.     set i = 1
  50.     set l = length(tmp)
  51.     repeat while (i <= l) and ┬¼
  52.            not (("!,.+'" & numToChar(34)) contains char i of tmp)
  53.       set pal = pal & char i of tmp
  54.       set i = i + 1
  55.     end repeat
  56.     sendSprite(97,#setEstado, 0)
  57.     sendSprite(98,#preenche, pal)
  58.     --    put "# Texto Inteligente: " & pal
  59.     cursor -1
  60.   else
  61.     global gLinks, gLinksCount, gLinksTable, gLinksDest
  62.     
  63.     --    put "# midia=" & midia & ", subtitulo=" & subtit &  ", word=" & pal
  64.     set tmp = midia & "," & subtit & "," & (pal + primPal)
  65.     set pos = getPos(gLinksTable, tmp)
  66.     if pos > 0 then
  67.       cursor 4
  68.       puppetSound 2,"CliqueDuplo"
  69.       vaiPagina getAt(gLinksDest,pos), true
  70.       cursor -1
  71.     else if spriteClick <> 0 then
  72.       sendSprite spriteClick, #mouseUp
  73.     end if
  74.   end if
  75. end
  76.  
  77.